(defun c:translate (/ ent-data)
  (setq ent-data (entget (ssname (ssget ":S") 0))
        ent-data
                 (subst (cons '10
                              (trans (cdr (assoc 10 ent-data))
                                     0
                                     (cdr (assoc 210 ent-data))
                              )
                        )
                        (assoc 10 ent-data)
                        ent-data
                 )
        ent-data
                 (subst (cons '210 '(0. 0. 1.))
                        (assoc '210 ent-data)
                        ent-data
                 )
  )
  (entmod ent-data)
  (princ)
)